МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА кафедра «Захист інформації»
EMBED Word.Picture.8
Звіт
До лабораторної роботи №1 з курсу «Комп’ютерна графіка»
Виконав:
Студент групи ІБ-44
Перевірив:
Баран Р.Д.
Львів-2009
Мета роботи - навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зобра-жень та графіків функцій.
1. Навчитися ініціалізувати графічний режим роботи відеоадаптера в середовищі Турбо-Паскаль.
2. Вивчити основні графічні процедури та функції алгоритмічної мови Турбо-Паскаль.
3.Написати програму на алгоритмічній мові Турбо-Паскаль, яка виводить на екран певне графічне зображення. Розміри, вказані в завданнях, проставити на кресленні. Варіанти завдань беруть за вказівкою викладача з таблиці 1.
Список ідентифікаторів констант, змінних, процедур і функцій, використаних в програмі, та їх пояснення.
Всі процедури та функції, необхідні для графічного режиму роботи адаптера, знаходяться в модулі GRAPH.TPU і стають доступними лише після запису на початку програми оператора USES GRAPH.
Процедура CLOSEGRAPH завершує роботу адаптера в графічному режимі і повертає текстовий режим.
Outtextxy – вивід тексту
Line – будує лінію по заданим координатам
Остаточно відлагоджений текст програми згідно з отриманим завданням.
Program diod;
uses
Graph,Crt;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
Line(220,300,400,300);
Line(300,300,300,250);
Line(300,300,300,350);
Line(300,350,360,300);
Line(300,250,360,300);
Line(360,250,360,350);
Line(250,275,256,275);
Line(253,272,253,278);
Line(390,275,395,275);
outtextxy(250,350, 'KATOD') ;
outtextxy(380,350, 'ANOD') ;
Readln;
CloseGraph;
end.
Висновок: на даній лабораторній роботі навчився ініціалізувати графічний режим та вивчив основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зображень та графіків функцій.
